home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / irc_i_dodatki / ilona / install_ilona < prev    next >
Text File  |  1997-04-23  |  3KB  |  80 lines
  1. ; $VER: Install_Ilona 1.3 (20.04.97) by Tristan Greaves
  2. ; Based on Install_Installer_Guide by G. Cornu.
  3. ;  
  4. ;-- Language specific string definitions --------------------------------------
  5.  
  6. ; ENGLISH -----------------------------
  7. (procedure english (
  8.     (set MSG_SPACE "\n\n\nInstalling this application will use about\n%ld Kilobytes of your hard disk space.")
  9.     (set MSG_UPDATE "\n\n\nAre you installing this over an old Ilona?\n\nIf so, please make a copy of your configuration and user file first, as they will be over-written.\n\nClick 'Abort Installation' if you wish to do this.")
  10.     (set MSG_DESTINATION "Where would you like %s to be installed?\n(%s will be directly copied there)")
  11.     (set MSG_COPYING "Going to copy %s to %s.")
  12.     (set @abort-button "Abort Installation")
  13.     (set MSG_WARNUP "\n\nJust upgraded from v1.2 ?\n\nThen please note that the user-file has changed format with this release. You will need to change your old one slightly if you wish to use it.\n\nSee the documentation for information.")
  14.     (set MSG_THANKS "Thank you for installing %s!\n\nNow please read the documentation so that Ilona can be configured to suit your needs.")
  15. ))
  16.  
  17. (if (= @language "english")  (english))
  18. (if (= @language "français") (français))
  19.  
  20. ; Choose default tool for guide, depending on user's OS version
  21. (set osversion  (/ (getversion) 65536))
  22. (if (>= osversion 39)
  23.    (set guide_reader "MultiView") 
  24.    (set guide_reader "AmigaGuide")
  25. )
  26. (set installed "")
  27.  
  28. (message (MSG_SPACE (/ (getsize "ilona/ilona") 1024)))
  29.  
  30. (message MSG_UPDATE)
  31.  
  32. (set dest_dir
  33.    (askdir (prompt (MSG_DESTINATION @app-name @app-name))
  34.            (help @askdir-help)
  35.            (default @default-dest)
  36.            (newpath))
  37. )
  38.  
  39. (set @default-dest dest_dir)
  40.  
  41. (copyfiles  (prompt (MSG_COPYING @app-name @default-dest))
  42.             (help @copyfiles-help)
  43.             (all)
  44.             (source "Ilona/")
  45.             (dest dest_dir)
  46.             (infos)
  47. )
  48.  
  49. (if (exists (tackon @default-dest "Ilona.guide.info") (noreq))
  50.    (
  51.       (tooltype   (dest (tackon @default-dest "Ilona.guide.info"))
  52.                   (noposition) (setdefaulttool guide_reader))
  53.       (set installed "YES")         
  54.    )
  55. )
  56.  
  57. (if (exists (tackon @default-dest "Ilona.registration.info") (noreq))
  58.    (
  59.       (tooltype   (dest (tackon @default-dest "Ilona.registration.info"))
  60.                   (noposition) (setdefaulttool guide_reader))
  61.       (set installed "YES")         
  62.    )
  63. )
  64.  
  65. (if (exists (tackon @default-dest "submissions/Submissions.info") (noreq))
  66.    (
  67.       (tooltype   (dest (tackon @default-dest "submissions/Submissions.info"))
  68.                   (noposition) (setdefaulttool guide_reader))
  69.       (set installed "YES")         
  70.    )
  71. )
  72.  
  73.  
  74. (message MSG_WARNUP)
  75.  
  76. (if (= installed "YES") 
  77.    (exit (MSG_THANKS @app-name))
  78.    (exit)
  79. )   
  80.